home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc x 92a.d64 / 6col 300 dir (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  87 lines
  1. 10 REM : A PRINT UTILITY PROGRAM TO
  2. 20 REM : COLLECT,TRUNCATE, MINATURIZE
  3. 30 REM : AND PRINT THE DIRECTORY OF ANY
  4. 40 REM : DISK - PROGRAMS OR GRAPHICS -
  5. 50 REM : ONTO A STANDARD LARGE LABEL
  6. 60 REM : USING A STAR NX1000 OR CHANGE
  7. 70 REM : LINE 5130 FOR OTHER PRINTER**
  8. 80 REM : BY JERRY & BRETT MASON
  9. 90 REM : FATHER & SON
  10. 100 PRINT"[147]":POKE53280,5:POKE53281,5:POKE646,6
  11. 200 PRINT "TINY DISK LABELS FOR PROGRAM DISKS OR   GRAPHICS DISKS"
  12. 400 INPUT"HOW MANY COLUMNS?(INPUT 1 TO 6):  6[157][157][157]";JBM
  13. 500 GM=0:GR$="":GR=0:E$=CHR$(27)
  14. 700 INPUT "IS THIS A DISK OF GRAPHICS (Y[146]/N[146])  N[157][157][157]";YN$
  15. 800 IF YN$>="Y" THEN GR$=CHR$(17)
  16. 900 IF GM<>0 THEN1200
  17. 1000 INPUT "IS THE PRINTER ON (Y[146]/N[146])  Y[157][157][157]"; A$
  18. 1100 IF A$<>"Y" THEN PRINT;: GOTO1000
  19. 1200 DIM N$(300): REM UP TO 300 FILES ON DISK
  20. 1300 OPEN 15,8,15
  21. 1400 OPEN 4,4
  22. 1900 PRINT "INSERT A DISK IN DRIVE AND"
  23. 2000 PRINT "THEN PRESS ANY KEY"
  24. 2100 GET A$: IF A$="" THEN2100
  25. 2200 PRINT "[147]";
  26. 2300 PRINT#15, "I"
  27. 2400 CT=0: REM CT IS THE COUNT OF THE NUMBER OF DISK FILES
  28. 2500 IF GR$<>"" THEN PRINTCHR$(14):REM IF GRAPHICS DISK, CHANGE SCREEN DISPLAY
  29. 2600 OPEN 2,8,0,"$0:*"
  30. 2700 GET#2, A$,A$
  31. 2800 GET#2, A$,A$,A$,B$
  32. 2900 A=ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0)): REM CALC FILE SIZE
  33. 3000 IF ST THEN5130
  34. 3100 L$=""
  35. 3200 IF CT THEN L$=MID$(STR$(A)+"",2,3)
  36. 3300 GET#2, A$
  37. 3350 IFZ=0THENGOTO3450
  38. 3400 IF NOT(A$=CHR$(34) OR A$="B") THEN3300: REM SEARCH FOR " OR B
  39. 3450 [136]Z[178]1
  40. 3500 [137]4200
  41. 3600 [161]#2, A$:  [139] A$[178]"" [167]4300
  42. 3700 [139] ([198](A$)[175]127)[179]32 [167]3600
  43. 3800 [139] GR$[178]"" [167]4100
  44. 3900 [139] A$[177]"@" [175] A$[179]"[" [167] A$[178][199]([198](A$)[170]32): [143] CONVERT TO UPPERCASE
  45. 4000 [137]4200
  46. 4100 [139] [198](A$)[177]192 [167] A$[178][199]([198](A$)[171]128): [143] CONVERT TO UPPERCASE
  47. 4200 L$[178]L$[170]A$: [137]3600: [143] FORM NEXT FILENAME
  48. 4300 L$[178][202](L$,3,17): [143] ADJUSTS FILENAME TO 17 CHARACTERS
  49. 4400 [129] X[178]1 [164] [195](L$):[143] THIS SUBROUTINE CHANGES QUOTE MARKS TO SPACES
  50. 4500 [139] [202](L$,X,1)[178][199](34) [167] L$[178][200](L$,X[171]1)[170]" "[170][201](L$,[195](L$)[171]X)
  51. 4600 [130] X
  52. 4700 [139] [198](L$)[178]32 [167] L$[178][201](L$,[195](L$)[171]1)[170]" "
  53. 4800 N$(CT)[178]L$: [143] PUT FILENAME IN NAME ARRAY
  54. 4900 [153] L$: [143] LIST FILENAME ON SCREEN
  55. 5000 CT[178]CT[170]1
  56. 5100 [137]2800
  57. 5130 [152]4,E$;[199](120);[199](49),E$;[199](107);[199](3),E$;[199](29):[143] ORATOR
  58. 5150 [152]4,E$;[199](87);[199](49):[143] DOUBLE WIDE
  59. 5160 [136]Z[178]0
  60. 5200 [152]4,GR$;N$(0): [143] PRINT INPUT# INFO
  61. 5210 [152]4,E$;[199](64);: [143] RESET PRINTER
  62. 5220 [152]4, E$;[199](15);: [143] SETS CONDENSED TYPE
  63. 5230 [152]4,E$;[199](83)[199](49);:[143] SUBSRIPT MODE IS SELECTED
  64. 5240 [152]4,E$;[199](51);[199](15);:[143] REDUCES VERTICAL SPACING
  65. 5300 CT[178]CT[171]1: [143] ADD FREE BLOCKS TO PRINT OUT
  66. 5400 N$(CT)[178][200](N$(CT),3)[170][202](N$(CT),4): [143] PUT BLANK IN FREE BLOCK COUNT
  67. 5500 MID[178] [181](CT[173]JBM)
  68. 5600 [129] I[178] 1 [164] MID:[143] THIS SUBROUTINE PRINTS THE LABEL
  69. 5700 [152]4,GR$;
  70. 5800 [129] IZ[178]0 [164] JBM[171]1
  71. 5900 [152]4,N$(I[170]IZ[172]MID);
  72. 6000 [130] IZ
  73. 6100 [152]4,""
  74. 6200 [130] I
  75. 6300 [139] CT[173]JBM [178] MID [167]6500
  76. 6400 [129] I[178]CT[171]((CT[173]JBM[171]MID)[172]JBM)[170]1 [164] CT:[152]4,GR$;N$(I);J:[130]
  77. 6500 [152]4,
  78. 6600 [152]4,E$;[199](64):[143] RESETS PRINTER
  79. 6700 [152]4,
  80. 6800 [160] 2
  81. 6900 [139] GR$[179][177]"" [167] [153] [199](142)
  82. 7000 [153] "DO YOU WANT TO PRINT ANOTHER"
  83. 7100 [133] "DIRECTORY (YWAIT/NWAIT)  YCMDCMDCMD"; A$
  84. 7200 [139] A$[178]"Y" [167] [156]: XX[178]1: [137]100
  85. 7300 [153] "LOAD"
  86. 7400 [128]
  87.